﻿
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class Encuestas_Encuestarediseño
    Inherits System.Web.UI.Page

    Dim errores As String
    Dim mensaje As String
    Dim itemgridview As GridViewRow
    Dim correlativo As System.Web.UI.WebControls.Label



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Instanciamos la clase
        Dim capanegocios As New EncuestaBL
        Try

            If capanegocios.ListarEncuestasActivas.Tables("Encuestas").Rows.Count > 0 Then
                gvencuestas.DataSource = capanegocios.ListarEncuestasActivas
                gvencuestas.DataBind()
                'Liberamos recursos
                capanegocios = Nothing

                'Pintamos el número correlativo de las encuestas
                Dim contador As Integer = 0
                For Each itemgridview In gvencuestas.Rows
                    correlativo = itemgridview.FindControl("lblnumero")
                    contador += 1
                    correlativo.Text = CStr(contador)
                Next
            End If

        Catch ex As Exception

            errores = capanegocios.ChapaError
            Response.Redirect("Errores.aspx?id=" & errores)


        Finally
            'Liberamos recursos
            capanegocios = Nothing
        End Try
    End Sub
    Sub Ver(ByVal src As Object, ByVal args As CommandEventArgs)
        Session("ENCUESTA") = args.CommandName
        Response.Redirect("Encuestarediseño22.aspx")
    End Sub

End Class

